Class  ParentChildProcess
  Public  m_OutFile 'as TextStream (Write) ... 子プロセスへ渡す XML ファイル
  Public  m_InXML 'as IXMLDOMElement ... メイン・プロセスに戻される ルートXML要素

  Public  m_TempPath ' as string. 送受信ファイルができるフォルダのパス
  Public  m_DateID ' as string. 例："090401". /ChildProcess オプションに渡す値
  Public  m_FileID ' as string. 例："1". /ChildProcess オプションに渡す値
End Class

  Dim  pr, sample

  '// プログラム開始時に、送られてきたXMLファイルをオブジェクトに戻す
  Set pr = get_ChildProcess()  ' as ParentChildProcess
  new_ObjectFromStream  sample, "SampleClass", pr


  '// main
  If not IsEmpty( sample ) Then
    sample.Value = 2
  End If


  '// プログラム終了時に、戻すオブジェクトをXMLファイルに変換する
  If not pr is Nothing Then
    If not IsEmpty( sample ) Then  pr.m_OutFile.WriteLine  sample.xml
  End If

静的オブジェクト

であり、メインプロセスからの情報を m_InXML から入力し、

関数で取得できる

ChildProcess オブジェクトのメンバー

使用サンプル：

Class  InterProcessData  '// defined_as_interface
  Public Sub  OnCallInParent( a_ParentProcess as ParentChildProcess ) : End Sub
  Public Sub  loadXML( XmlObject as IXMLDOMElement ) : End Sub
  Public Sub  OnReturnInChild( a_ChildProcess as ParentChildProcess ) : End Sub
  Public Sub  OnReturnInParent( a_ParentProcess as ParentChildProcess ) : End Sub
End Class

Function  new_InterProcessData()
  Set new_InterProcessData = new InterProcessData
End Function

→ T_ChildProcess2_include.vbs

テスト

ライブラリが自動的に子プロセスに受け渡しをするオブジェクトに必要なインターフェースです。
Err2 は、このインターフェースを持っています。

Dim  g_InterProcess ' as InterProcess

Class InterProcess
  Public Property Get  ProcessCallID   '// as ArrayClass of integer
  Public               InterProcessUserData  '// as string
End Class

メイン・プロセスと子プロセスで共有する変数です。

.ProcessCallID  ' as ArrayClass of integer

ProcessCallID(0) = メイン・プロセスが子プロセスを起動した回数。
ProcessCallID(1) = 子プロセスが孫プロセスを起動した回数。

→ 処理フロー (/ChildProcess オプション)

.InterProcessUserData as string

アプリケーション・ユーザーがデバッグ用に使えます

→ [T_ChildProcessID] ProcessCallID や InterProcessUserData

テスト

Function  GetCScriptGUI_CommandLine( Parameters as string ) as string

ダブルクリックしたときに、vbslib のコマンド・プロンプトを開くコマンドラインを返します。

【引数】

Parameters

cscript.exe に渡すパラメーター

コマンドライン

返り値

サンプル

Sub  OpenFolder( in_FolderOrFilePath )

【引数】

in_FolderOrFilePath

フォルダー、またはファイルのパス

フォルダーを開きます。 フォルダーがなければユーザーに処理を選ばせます。

フォルダーを開く処理は、OpenFolder 関数の内部から

Setting_openFolder 関数

を呼び出すことで行います。

in_FolderOrFilePath 引数の親フォルダーがあれば、そのフォルダーを開きます。
親フォルダーがなければ、以下のメニューを開きます。

Function  GetEditorCmdLine( PathAndFragment as string ) as string

Setting_getEditorCmdLine

【引数】

PathAndFragment

返り値

テキストファイルへのパスと行番号またはキーワード

コマンドライン

サンプル：

Function  GetDiffCmdLine( PathA as string, PathB as string ) as string

(src)

Diff ツール（比較するプログラム）を起動するコマンドラインを返します。

Setting_getDiffCmdLine

の設定によって変わります。

Function  GetDiffStringCmdLine( StringA as string, StringB as string )
    as DiffCmdLineClass

Diff ツールを起動して、文字列を比較するコマンドラインを返します。

Default Property Get  DiffCmdLineClass::CmdLine() as string

Function  GetDiffOneLineCmdLine( in_PathAndLineNumA as string, in_PathAndLineNumB as string )
    as DiffCmdLineClass

Diff ツールを起動して、指定した行を 1文字ずつ比較するコマンドラインを返します。

【引数】

in_PathAndLineNumA

in_PathAndLineNumB

比較するファイルのパスと行番号、または、比較する文字列

比較するファイルのパスと行番号、または、比較する文字列

返り値

DiffCmdLineClass

コマンドラインの文字列、または、

Sub  DiffCUI( FilePaths as array of string, FileLabels as array of string )

Diff ツールがないときに、コマンドラインだけで使える比較ツール。

【引数】

FilePaths

FileLabels

比較するファイル パスの配列

比較するファイルの役割名の配列

関連

テスト

ソース

→ vbslib.vbs

→ T_SyncFiles.vbs

→ GetDiffCmdLine, GetDiffCmdLine3

テキストエディターで開くファイルのパスをテストでチェックする

Diff ツールで開くファイルのパスをテストでチェックするとき

DiffCUI は、比較しているそれぞれのファイルを開くメニューがあり、

方法と組み合わせれば、Diff ツールで開くファイルのパスをチェックできます。

→ DiffCUI_InCurrentProcess

→ _src\Test\tools\T_SyncFiles\SettingForTest.vbs

参考

Function  DiffCUI_InCurrentProcess( CommandLine as string )

ソース

→ PC_setting_default.vbs

Sub  Sleep( msec as integer )

指定した時間だけ待ちます。

【引数】

msec

待つ時間（ミリ秒）

(src)